object FConsOcorrencia: TFConsOcorrencia
  Left = 192
  Top = 127
  Width = 860
  Height = 550
  Caption = 'Consulta Ocorr'#234'ncia do Fechamento'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object pnPesquisaPadrao: TPanel
    Left = 0
    Top = 0
    Width = 852
    Height = 57
    Align = alTop
    TabOrder = 0
    object lbConteudoPesquisa: TLabel
      Left = 248
      Top = 4
      Width = 131
      Height = 16
      Caption = 'Conte'#250'do da Pesquisa'
    end
    object lbCamposParaPesquisa: TLabel
      Left = 8
      Top = 4
      Width = 128
      Height = 16
      Caption = 'Campo para Pesquisa'
    end
    object edPesquisa: TEdit
      Tag = 77
      Left = 248
      Top = 24
      Width = 289
      Height = 24
      TabOrder = 1
      OnChange = edPesquisaChange
    end
    object stCampoBuscado: TStaticText
      Left = 408
      Top = 4
      Width = 4
      Height = 4
      TabOrder = 2
    end
    object dblCamposPesquisa: TDBLookupComboBox
      Tag = 77
      Left = 8
      Top = 24
      Width = 233
      Height = 24
      KeyField = 'NOME'
      ListField = 'DESCRICAO'
      ListSource = dsCamposPesquisa
      TabOrder = 0
    end
  end
  object dbgPesquisaPadra: TDBGrid
    Tag = 77
    Left = 0
    Top = 57
    Width = 852
    Height = 455
    Align = alClient
    DataSource = dsOcorrencia
    Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    OnTitleClick = dbgPesquisaPadraTitleClick
  end
  object dsOcorrencia: TDataSource
    DataSet = cdsCadastro
    Left = 192
    Top = 432
  end
  object cdsCadastro: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOcorrencia'
    AfterOpen = cdsCadastroAfterOpen
    Left = 232
    Top = 432
    object cdsCadastroOCOR_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 12
      FieldName = 'OCOR_CODIGO'
    end
    object cdsCadastroOCOR_MES_FECHAMENTO: TStringField
      Alignment = taCenter
      DisplayLabel = 'M'#234's'
      DisplayWidth = 4
      FieldName = 'OCOR_MES_FECHAMENTO'
      FixedChar = True
      Size = 2
    end
    object cdsCadastroOCOR_ANO_FECHAMENTO: TStringField
      Alignment = taCenter
      DisplayLabel = 'Ano'
      DisplayWidth = 5
      FieldName = 'OCOR_ANO_FECHAMENTO'
      FixedChar = True
      Size = 4
    end
    object cdsCadastroOCOR_GRUPO_CONSMO: TIntegerField
      DisplayLabel = 'Grupo Cons.'
      DisplayWidth = 12
      FieldName = 'OCOR_GRUPO_CONSMO'
    end
    object cdsCadastroOCOR_USUARIO: TStringField
      DisplayLabel = 'Usu'#225'rio'
      DisplayWidth = 24
      FieldName = 'OCOR_USUARIO'
    end
    object cdsCadastroOCOR_DATA_HORA_INI: TDateTimeField
      DisplayLabel = 'In'#237'cio'
      DisplayWidth = 24
      FieldName = 'OCOR_DATA_HORA_INI'
    end
    object cdsCadastroOCOR_DATA_HORA_FIM: TDateTimeField
      DisplayLabel = 'Final'
      DisplayWidth = 24
      FieldName = 'OCOR_DATA_HORA_FIM'
    end
    object cdsCadastroOCOR_TEMPO: TFloatField
      DisplayLabel = 'Tempo'
      DisplayWidth = 8
      FieldName = 'OCOR_TEMPO'
      DisplayFormat = '0'
    end
    object cdsCadastroOCOR_TEXTO: TStringField
      DisplayLabel = 'Texto'
      DisplayWidth = 72
      FieldName = 'OCOR_TEXTO'
      Size = 60
    end
  end
  object dspOcorrencia: TDataSetProvider
    DataSet = QOcorrencia
    Constraints = True
    Left = 272
    Top = 432
  end
  object QOcorrencia: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM OCORRENCIA_FECHAMENTO')
    Left = 312
    Top = 432
  end
  object dsCamposPesquisa: TDataSource
    Left = 352
    Top = 448
  end
end
